home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / Shareware World / Comms & Internet / LinkConverter 1.1.2 / Dialog Director v0.7 / Examples / Show Text.as < prev    next >
Encoding:
Text File  |  1998-01-12  |  491 b   |  14 lines  |  [TEXT/ToyS]
  1. property gCount : 0
  2. property dlog : {bounds:[20, 40, 340, 200], name:"Show Text", style:standard window, closeable:true ¬
  3.     , contents:[{class:text field, bounds:[0, 0, 320, 160]}]}
  4.  
  5. dd auto dialog dlog with fonts {name:"Geneva", size:9} --with greyscale
  6.  
  7. on open x
  8.     display dialog "Received open event with " & ((x as list)'s length) & " parameters."
  9. end open
  10.  
  11. on ShowText(x)
  12.     set gCount to gCount + 1
  13.     dd set value of item 1 of dialog 1 to (gCount as text) & ": " & (x as text)
  14. end ShowText